10 ' MORT (B)
20 MODE 1:BORDER 0
30 Poke &BE80,0:Poke &BE81,0:Poke &BE82,0:Poke &BE83,0:Poke &BE84,0:Poke &BE85,0:Poke &BE86,0
40 for i=0 to 15:ink i,0:next i
50 MEMORY &3FFF:LOAD"Mort.cmp"
60 poke &A634,&C8:poke &A635,0:poke &A636,0:CALL &A60B
70 poke &C7F1,&C9:CALL &C7D0
80 CALL &A60B
85 Locate 8,21:PEn 3:PRINT"Voulez-vous rejouer (O/N) ?"
90 k$=INKEY$
100 IF k$="O" or k$="o" THEN GOTO 200
110 IF k$="N" or k$="n" THEN CALL 0
120 IF k$<>"O" OR k$<>"o" OR k$<>"N" OR k$<>"n" THEN GOTO 90
200 INK 0,0:INK 1,6:INK 2,15:INK 3,24:MODE 1:Border 0:
210 Pen 3:Locate 1,8:PRINT"       Retour a la case depart !":PEN 2:PRINT:PRINT"  Vous voici de nouveau dans la piece":PRINT"      initiale de la pyramide..."
220 PEN 1:Locate 1,16:PRINT"ATTENTION : Vous perdez tous les objets,":locate 1,17:PRINT"indices et connaissances que vous aviez":PRINT"precedemment acquis dans la":PRINT"pyramide."
230 PEN 3:LOCATE 15,25:INPUT"  ENTER  ",en$
240 RUN"Pyramid2.bas" 